program Teacher;

uses
  Forms,
  Windows,
  uMainForm in 'uMainForm.pas' {TeacherMainForm: TTntForm},
  uTexts in 'uTexts.pas';

{$R *.res}

var
  window: THandle;

begin
  window := FindWindow(nil, 'Golden Temp Teacher');
  if window <> 0 then
  begin
    if IsIconic(window) then
      ShowWindow(window, SW_SHOWNORMAL)
    else
      SetForegroundWindow(window);
    Exit;
  end;

  Application.Initialize;
  Application.Title := 'Golden Temp Teacher';
  Application.HelpFile := 'GoldenTemp.chm';
  Application.CreateForm(TTeacherMainForm, TeacherMainForm);
  Application.Run;
end.
